##4.2 Cervejas
##Uma amostra de 30 estudantes foi indagada sobre seu tipo de cerveja preferida, com o seguinte resultado

cervejas <-c("chope","lata","garrafa","chope","garrafa", "garrafa","lata","lata","nenhuma","lata","garrafa","garrafa", "garrafa","lata","lata","lata","garrafa","lata","chope","nenhuma", "garrafa","garrafa","garrafa","chope","garrafa","garrafa","chope","garrafa","lata","lata")
cervejas.1<-table(cervejas)
cervejas.1
barplot(cervejas.1)
par(mfrow=c(1,1))
dotchart(cervejas.1)

#4.2.2 - A razo dado/tinta  maior para o dotchart.